Author

Tony Duan

Published

March 8, 2024

1 ui.R

Code

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Ski map"),

    # Sidebar with a slider input for number of bins
    #sidebarLayout(
    #
    #    ),

        # Show a plot of the generated distribution
        mainPanel(
          leafletOutput("mymap")
        )
    )

2 server.R

Code

library(shiny)
library(tidygeocoder)
library(leaflet)


server <- function(input, output, session) {

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=geo("Kiroro Hokkaido, Japan")$long, lat=geo("Kiroro Hokkaido, Japan")$lat, popup="kiroro ski resort") %>% 
      addMarkers(lng=geo("Rusutsu Hokkaido, Japan")$long, lat=geo("Rusutsu Hokkaido, Japan")$lat, popup="Rusutsu ski resort")
  })

}

https://www.youtube.com/watch?v=6y2FnAugP8E

https://github.com/coatless-quarto/r-shinylive-demo

---
title: "[leaflet]Mapping in R"
author: "Tony Duan"
date: "2024-03-08"
categories: [R,shiny]
execute:
  warning: false
  error: false
format:
  html:
    toc: true
    toc-location: left
    code-fold: show
    code-tools: true
    number-sections: true
    code-block-bg: true
    code-block-border-left: "#31BAE9"
image: "images/1.png"
---




![](images/2.png){width="600"}


# ui.R

```{r}
#| eval: false
library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Ski map"),

    # Sidebar with a slider input for number of bins
    #sidebarLayout(
    #
    #    ),

        # Show a plot of the generated distribution
        mainPanel(
          leafletOutput("mymap")
        )
    )
```


# server.R

```{r}
#| eval: false
library(shiny)
library(tidygeocoder)
library(leaflet)


server <- function(input, output, session) {

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=geo("Kiroro Hokkaido, Japan")$long, lat=geo("Kiroro Hokkaido, Japan")$lat, popup="kiroro ski resort") %>% 
      addMarkers(lng=geo("Rusutsu Hokkaido, Japan")$long, lat=geo("Rusutsu Hokkaido, Japan")$lat, popup="Rusutsu ski resort")
  })

}

```



--------------------------------


https://www.youtube.com/watch?v=6y2FnAugP8E

https://github.com/coatless-quarto/r-shinylive-demo